(DE SEARCH1 (L) (PROG() A (COND ((NULL L) (RETURN NIL)) ((NULL (SETQ P (GETL (CAR L) SRLIST)))(GO B)) ((NOT (MEMQ (CAR L) OBL)) (PRINT (CONS (CAR L) (CAR P))))) B (SETQ L (CDR L)) (GO A) )))) (DE SEARCH (L) (COND ((NULL L) (RETURN NIL)) (T (SEARCH1 (CAR L))(RETURN (SEARCH (CDR L)))) )))